
Public Class NamesClient

    Private Shared _namesInt As NamesService.NamesClient
    Private Shared _authorsInt As AuthorsService.AuthorsInterfaceClient
    'Private Shared _reportsInt As repor
    Private Shared _refsInt As ReferencesService.ReferencesInterfaceClient
    Private Shared _userInt As UsersService.UserInterfaceClient

    Public Shared Property NamesInterfaceProxy() As NamesService.NamesClient
        Get
            If _namesInt Is Nothing Then _namesInt = New NamesService.NamesClient
            Return _namesInt
        End Get
        Set(ByVal value As NamesService.NamesClient)
            _namesInt = value
        End Set
    End Property

    Public Shared Property AuthorsInterfaceProxy() As AuthorsService.AuthorsInterfaceClient
        Get
            If _authorsInt Is Nothing Then _authorsInt = New AuthorsService.AuthorsInterfaceClient
            Return _authorsInt
        End Get
        Set(ByVal value As AuthorsService.AuthorsInterfaceClient)
            _authorsInt = value
        End Set
    End Property

    'Public Shared property ReportsInterfaceProxy() As TaxonNamesInterface.ReportsInterface
    '    Dim ri As TaxonNamesInterface.ReportsInterface = Nothing 'todo
    '    Return ri
    'End Function

    Public Shared Property ReferencesInterfaceProxy() As ReferencesService.ReferencesInterfaceClient
        Get
            If _refsInt Is Nothing Then _refsInt = New ReferencesService.ReferencesInterfaceClient
            Return _refsInt
        End Get
        Set(ByVal value As ReferencesService.ReferencesInterfaceClient)
            _refsInt = value
        End Set
    End Property
        

    Public Shared Property UsersInterfaceProxy() As UsersService.UserInterfaceClient
        Get
            If _userInt Is Nothing Then _userInt = New UsersService.UserInterfaceClient
            Return _userInt
        End Get
        Set(ByVal value As UsersService.UserInterfaceClient)
            _userInt = value
        End Set
    End Property
        

End Class
